home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 December / macformat-044.iso / Demos / The Ghost Cave / BB / AHOME.Dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  292 b   |  15 lines

  1. on framer stfr, enfr
  2.   set casts to []
  3.   repeat with i = stfr to enfr
  4.     go(i)
  5.     repeat with j = 1 to 48
  6.       set ca to the castNum of sprite j
  7.       if (ca <> 0) and not getOne(casts, ca) then
  8.         add(casts, ca)
  9.       end if
  10.     end repeat
  11.   end repeat
  12.   sort(casts)
  13.   put casts
  14. end
  15.